home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_33307.txt < prev    next >
Text File  |  1989-08-22  |  3KB  |  142 lines
  1. -- background: 33307 from stack: in
  2. -- bmap block id: 33779
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: benefitBack
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   global mapLoc
  9.   put 17 into mapLoc
  10. end closeBackground
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=428 top=317 right=342 bottom=456
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 18611 / 18611
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: prev
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual scroll right
  29.   go prev
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=455 top=317 right=342 bottom=483
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 18612 / 18612
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: next
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual scroll left
  49.   go next
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=482 top=317 right=342 bottom=510
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 18613 / 18613
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: return
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   pop card into lastPush
  69.   if the short name of this stack is not in lastPush then
  70.     visual dissolve
  71.     go card "Map"
  72.   else
  73.     visual dissolve
  74.     go lastPush
  75.   end if
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 6 (field)
  81. -- low flags: 01
  82. -- high flags: 0000
  83. -- rect: left=128 top=23 right=45 bottom=508
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 21
  88. -- text size: 18
  89. -- style flags: 0
  90. -- line height: 20
  91. -- part name: cardTitle
  92.  
  93.  
  94. -- part 7 (field)
  95. -- low flags: 01
  96. -- high flags: 0000
  97. -- rect: left=128 top=70 right=313 bottom=509
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 2
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: cardText
  106.  
  107.  
  108. -- part 9 (field)
  109. -- low flags: 01
  110. -- high flags: 0000
  111. -- rect: left=128 top=0 right=22 bottom=508
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 21
  116. -- text size: 18
  117. -- style flags: 10240
  118. -- line height: 19
  119. -- part name: Title
  120.  
  121.  
  122. -- part 10 (button)
  123. -- low flags: 00
  124. -- high flags: A002
  125. -- rect: left=1 top=1 right=16 bottom=40
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 9
  131. -- style flags: 0
  132. -- line height: 12
  133. -- part name: Menu
  134. ----- HyperTalk script -----
  135. on mousedown
  136.   global checkedItem, clickTime
  137.   put 6 into checkedItem
  138.   mainMenu
  139.   put the ticks into clickTime
  140. end mousedown
  141.  
  142.